home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g06.bas < prev    next >
BASIC Source File  |  1991-10-18  |  527b  |  20 lines
  1. 100 ' G06 T.WAKAMATSU
  2. 110 PI=3.14159!:CLS
  3. 120 FOR G=1 TO 3
  4. 130   READ A,C:DATA 1,5,3,2,0,0:CL=A
  5. 140   FOR T=-90 TO 90 STEP 6
  6. 150     IF T=0 THEN CL=C
  7. 160     R=PI*T/180:W=-180
  8. 170     Z=239*COS(PI/180*W):V=239*SIN(PI/180*W)
  9. 180     X1=Z*SIN(R)*.3!+320+V
  10. 190     Y1=Z*COS(R)+240
  11. 200     PSET(X1,Y1)
  12. 210     FOR W=0 TO 360 STEP 10
  13. 220       Z=239*COS(PI/180*W):V=239*SIN(PI/180*W)
  14. 230       X1=Z*SIN(R)*.3!+320+V
  15. 240       Y1=Z*COS(R)+240
  16. 250       LINE-(X1,Y1),PSET,%CL
  17. 260     NEXT W
  18. 270   NEXT T
  19. 280 NEXT G
  20.